home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 242
- Top = 114
- Width = 435
- Height = 354
- Caption = 'Seelenklempner II'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- PopupMenu = PopupMenu1
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 16
- Top = 24
- Width = 400
- Height = 60
- Caption = 'Das sagst Du mir'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object Edit1: TEdit
- Left = 10
- Top = 24
- Width = 380
- Height = 28
- TabOrder = 0
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 96
- Width = 400
- Height = 60
- Caption = 'Das sag ich Dir'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- object Panel1: TPanel
- Left = 10
- Top = 24
- Width = 380
- Height = 25
- BevelOuter = bvLowered
- TabOrder = 0
- end
- end
- object GroupBox3: TGroupBox
- Left = 16
- Top = 168
- Width = 400
- Height = 60
- Caption = 'Diagnose-Manipulator'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- object ScrollBar1: TScrollBar
- Left = 10
- Top = 24
- Width = 380
- Height = 25
- TabOrder = 0
- OnChange = ScrollBar1Change
- end
- end
- object Button1: TButton
- Left = 48
- Top = 248
- Width = 140
- Height = 40
- Caption = 'Neu'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 240
- Top = 248
- Width = 140
- Height = 40
- Caption = 'Fertig'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = Button2Click
- end
- object RichEdit1: TRichEdit
- Left = 24
- Top = 0
- Width = 380
- Height = 25
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- Visible = False
- end
- object MainMenu1: TMainMenu
- Left = 184
- object Datei1: TMenuItem
- Caption = 'Datei'
- ShortCut = 0
- object Oeffnen1: TMenuItem
- Caption = '�ffnen'
- ShortCut = 0
- OnClick = Oeffnen1Click
- end
- object Speichern1: TMenuItem
- Caption = 'Speichern'
- ShortCut = 0
- OnClick = Speichern1Click
- end
- object Drucken1: TMenuItem
- Caption = 'Drucken'
- ShortCut = 0
- OnClick = Drucken1Click
- end
- object Ende1: TMenuItem
- Caption = 'Ende'
- ShortCut = 0
- end
- end
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*'
- Left = 224
- end
- object SaveDialog1: TSaveDialog
- FileEditStyle = fsEdit
- Filter = 'Textdateien (*.txt)|*.txt'
- Left = 264
- end
- object PrintDialog1: TPrintDialog
- Left = 304
- end
- object PopupMenu1: TPopupMenu
- Left = 344
- object Neu1: TMenuItem
- Caption = 'Neu'
- ShortCut = 0
- OnClick = Neu1Click
- end
- object Drucken2: TMenuItem
- Caption = 'Fertig'
- ShortCut = 0
- OnClick = Drucken2Click
- end
- object Oeffnen2: TMenuItem
- Caption = '�ffnen'
- ShortCut = 0
- OnClick = Oeffnen2Click
- end
- object Speichern2: TMenuItem
- Caption = 'Speichern'
- ShortCut = 0
- OnClick = Speichern2Click
- end
- end
- end
-